if args ="" then args=inputbox("length = ?",args,"10")
args=cdbl(args)
Dim doc
Set doc = application.ActiveDocument
GetUserLicence(doc)
doc.currentunit = 2
main
sub main()
	putSelPadObstruct
	'msgbox "done"
end sub

'#################################################################
'#################################################################
'#################################################################
'#################################################################

function putSelPadObstruct()
	dim x1,y1,x2,y2
	dim pntArr	
	dim numPoints 
	redim pntArr(2,4)
	numPoints = 5 
	dim po
	dim dx
	dx = args'inputbox("add length = ?",dx,10)
	
	dim cLyr
	dim NetName
	cLyr = application.gui.ActiveRouteLayer 
	dim pstack,pstacks
    Set pstacks = doc.PadstackObjects(epcbPadstackObjectPin,1)
	for each pstack in pstacks
		set NetName = pstack.net
		'msgbox pstack.net.name
		x1 = pstack.Extrema.MinX
		y1 = pstack.Extrema.MinY-dx
		X2 = pstack.Extrema.MaxX
		Y2 = pstack.Extrema.MaxY+dx
		pntArr(0,0)=x1:pntArr(1,0)=y1:pntArr(2,0)=0
		pntArr(0,1)=x2:pntArr(1,1)=y1:pntArr(2,1)=0
		pntArr(0,2)=x2:pntArr(1,2)=y2:pntArr(2,2)=0
		pntArr(0,3)=x1:pntArr(1,3)=y2:pntArr(2,3)=0
		pntArr(0,4)=x1:pntArr(1,4)=y1:pntArr(2,4)=0
		doc.TransactionStart (0)
		Set po = doc.PutConductiveArea(cLyr,NetName,numPoints,pntArr,Nothing,epcbAnchorNone, epcbUnitCurrent)	
		doc.TransactionEnd (True)
	next	
end function


'#################################################################
'#################################################################
'#################################################################
'#################################################################
' Function to validate document
Private Function ValidateServer(docObj)
    Dim key, licenseServer, licenseToken
    key = docObj.Validate(0)
    Set licenseServer = CreateObject("MGCPCBAutomationLicensing.Application")
    licenseToken = licenseServer.GetToken(key)
    Set licenseServer = nothing
    'On Error Resume Next
    Err.Clear
    docObj.Validate(licenseToken)
    If Err Then
        ValidateServer = 0    
    Else 
        ValidateServer = 1
    End If
End Function

sub GetUserLicence(docObj)

	If ValidateServer(docObj) = 0 Then
	    msgbox "Server validation failed."
	    exit sub
	End If
	
end sub